home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / mac / 2-Graphics / Apple Graphics Source / Other files / Graphics Database Lists / card_5497.txt < prev    next >
Text File  |  1990-12-05  |  2KB  |  100 lines
  1. -- card: 5497 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 5187
  5. -- name: print TN/odd
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=0 top=0 right=23 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 256
  18. -- line height: 16
  19. -- part name: Title to Print
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global listSelected, lineClicked
  23.   put clickLine() into lineClicked
  24.   -- determine how many lines are hidden above
  25.   put (the scroll of me / textHeight of me) into linesAbove
  26.   -- add that number to the relative position clicked
  27.   add linesAbove to lineClicked
  28.   -- userLevel must be set to 4 or 5 for select to work
  29.   put userLevel into tempUserLevel
  30.   set userLevel to 5
  31.   select line lineClicked of card field "list Index"
  32.   put tempUserLevel into userLevel
  33.   if the selection is empty
  34.   then
  35.   exit mouseUp
  36. end if
  37. put the selection into listSelected
  38. end mouseUp
  39.  
  40.  
  41. -- part 3 (field)
  42. -- low flags: 00
  43. -- high flags: 0002
  44. -- rect: left=0 top=23 right=56 bottom=512
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 4
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Headings
  53.  
  54.  
  55. -- part 5 (field)
  56. -- low flags: 00
  57. -- high flags: 0002
  58. -- rect: left=0 top=55 right=89 bottom=512
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 4
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: List
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   global listSelected, lineClicked
  70.   put clickLine() into lineClicked
  71.   -- determine how many lines are hidden above
  72.   put (the scroll of me / textHeight of me) into linesAbove
  73.   -- add that number to the relative position clicked
  74.   add linesAbove to lineClicked
  75.   -- userLevel must be set to 4 or 5 for select to work
  76.   put userLevel into tempUserLevel
  77.   set userLevel to 5
  78.   select line lineClicked of card field "list Index"
  79.   put tempUserLevel into userLevel
  80.   if the selection is empty
  81.   then
  82.   exit mouseUp
  83. end if
  84. put the selection into listSelected
  85. end mouseUp
  86.  
  87.  
  88. -- part contents for card part 1
  89. ----- text -----
  90. LIST NAME:Print Testing
  91.  
  92. -- part contents for card part 3
  93. ----- text -----
  94.   #  | Description
  95.      | File Name
  96.  
  97. -- part contents for card part 5
  98. ----- text -----
  99.  13. | none
  100.      | DispPICT window